home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / PowerMacOberon feb96 / System / Util.Obj < prev    next >
Encoding:
Text File  |  1996-01-25  |  6.0 KB  |  14 lines  |  [TEXT/.Ob4]
  1. ¯6π ˇ–!(»K2$·pUtilÇ:ÎiÒO¿:ÉCopyListÎFindCharExtractLinesiUmlautOM:UmlautMO¿UmlautMAOÑ Ö;‚ÜDisplay;ı‰ƒViewers;˜ê
  2. MenuViewers$ÀúcTextFrames$ !Texts;‚WêFonts$ `<Oberon$…¢ãFiles6ÛA‚Strings$Œ±In<
  3. ‡4Outܸ¸Éˇ≤ ˛G˛ˇïˇêˇäˇJˇD
  4. ˇUˇ¸€˛z˛v    ˛S¸+˛,˛%˛ ¸†˝”˛˛˛`    ¸%&¸6
  5. ¸
  6.  
  7. ¸
  8. ¸
  9. ˚˙ ˚‹ ˚” ˚Œ˚ºá => ssueoeaeUeOeAeˇé'çåçççó†ççç©ççççççççççççççç≤ççççªçççççççƒssˇ§ˇ'˛˝˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛˛ ˛˛˛˛˛˛˛(yzwÇäíöSystem.Closeà|¶øaˇÏêî!ˇh;·8êA;¿;†ìø$ìøìø ìøÄbˇÏÉ√\,ûAʧÄûˇ¸Ä¢ˇ‹Ä≈ˇ¯Ä‰ˇ0@˙åûÉæùÅÅ(ˇ¸ÅBˇ‡ÅjˇËÅâˇÙlXÉΩùÉù<ùÉ}õÉ{8Äǡ‰ÄÑˇÿùÄΩ8‹ÄBˇ‰HÄAúÿ@¸8Ä¢ˇ‰ÄÖˇÿ8ø8ÄBˇ‰HÄA3úàfl8,Ü @‰àˇ8/A˙â8/à    @˛â?8,âAÊâ_8/
  10. Ö@˘∞8bÅbˇ‰Äãˇ–àø88¿ÄBˇ‰HÄA8bÅǡ‰Äåˇ–ÄBˇ‰HÄAÄbˇÏÄc`ÄÇÄBˇ‰HÄA8Ä∞ü:8}8ü:Ä¢ˇÏÄ•ˇ¯ùÄ|    ¶Ä]O‡!ÄA8}0úˇŒÄBˇ‡HÄA8}8úÄBˇ‡HÄAC‡C‡˛8}ÄBˇ‡HÄAÄhÄ!|¶ªaˇÏO‡ |¶ø°ˇÙêî!˛P;·@êA;£;ƒëˇ¸8êPê$êê ê8Ĭˇ‰Äܡ‘Ä‚ˇÏÄßdÖÄ•ÅˇÏÄ»dÜÄΔ ÄBˇ‰HÄA8Å"ˇ‰Ä⡑ÄBˇ‰HÄA©_4/ä@˛pâH,ã^@Êd8P8üT8øX8fl\ÄBˇÏHÄAÅü\/ A¯<8Äǡ‰ÄÑˇ‘ÄøPÄflTÄBˇ‰Kˇ˝°ÄA8Ä¢ˇ‰ÄÖˇ‘ÄBˇ‰Kˇ˝âÄA®fl4/ÜA˛®ˇ4,á@Êp…¶9]9Lâ 8B@P/A˙Hç+ô
  11. B@4/    A˙,ç ù*B@ /A˙ç+ù
  12. B@ /@˙ˇ‹ò
  13. C‡ò
  14. C‡ 9ÄôùÄxÄ!|¶ª°ˇÙO‡ |¶ø¡ˇ¯êî!ˇ∏;·@êA;√롸ÄBˇÏHÄAÄüˇ¸êd8Äøˇ¸Ä≈8/ÜA˛tġˇ¸Å8àÅ(âÅIÅjˇ¸Åǡ‡ÄlˇËÄãˇÙ|Ñ@ÊDÄøˇ¸Ä≈8ÜÄÊáÅÅ(ˇ¸ÅBˇ‡ÅjˇËÅâˇÙlXÄgÉÄÉêûC‡ 8†êæÄÄ!|¶ª¡ˇ¯O‡ |¶øAˇËêî!ˇ†;·@êA;£;ƒ;Ö;f롸;@à€ Ê/A˙hÅˇ¸8hÅ"ˇ‰Äâˇÿ8øÄBˇ‰Kˇˇ)ÄAâ_/äA˛â,ã@ÊC‡|∫âü}ù—Æ3ZC‡ˇ¥à/|Ä&TÖfl˛òª|∫8¿|›—Æ≥\Ä(Ä!|¶ªAˇËO‡ |¶øaˇÏêî!ˇ†;·@êA;£;ƒëˇ¸;Äã}/õA˛08bÄ‚ˇ‰Äᡖ8ªÄBˇ‰HÄA3ú|º}‡ÆC‡ˇ–Ä(Ä!|¶ªaˇÏO‡ |¶ø°ˇÙêî!˛h;·8êA;¿ìfl8ìfl(ìflìflìflìfl848ÄÄ9Kˇ¸89Kˇ˝©â4,àAÊ¥Å?/    A˙®8bˇÃ8ÄÄBˇ‡HÄA8ÄÄBˇ‡HÄA;√8ÅBˇ‰ÄäˇÿÄø8¿ÄBˇ‰KˇˇMÄA;†9`ô@8¥8ÄÄ8ø48fl@9Kˇ˝ıâü@/åA˛®4,É@ÊC‡∞®ü4/@˘î8¥8ÄÄ8ø48¿ÄÄBˇÙHÄA/ÉA˛p8¥8ÄÄ9Kˇ˛a8bÄ¢ˇ‰ÄÖˇ–ÄBˇ‰Kˇ˛±ÄAÄ8ù®fl4|˝20ßÄBˇ‰HÄA8Åˇ‰ÄàˇÿÄø8›ÄBˇ‰Kˇ˘µÄAC‡©?4}]J3™C‡ˇ$8`8ü<8ø>ÄBˇÏHÄA848ÄÄ8¢ˇº8¿ÄBˇ‡HÄA8ûÅbˇ‡®´®fl<®ˇ>ÄBˇ‹HÄAê8ûÄ~ÄÇÄBˇ‰Kˇ˛ôÄAÄhÄ!|¶ª°ˇÙO‡ |¶øAˇËêî!ˇ†;·8êA;√;Ä;@;†ˇˇ;`9ÄëûÄbˇ‘®É |õ @‰–8{8ÄÄBˇÿHÄA;Éú®º/@˘òúÄ‹ÜÄÊÅˇ¸Å"ˇ‡ÅIˇËÅhˇÙãP@˛XúÉ\öÅöÄlˇ¸Äǡ‡Ä§ˇËÄ√ˇÙf(ÉZöà˙5,áAÊ öÅ0Ë@˘ì^öÉ∫08|ÄBˇÿHÄA;ÉC‡ˇ`ú©< {JC‡ˇ(Ä0Ä!|¶ªAˇËO‡ |¶øÅˇêî!ˇx;·8êA;¿;†ìø,ìø ìøìø ÅBˇÏ®jVÅbˇÏ®ãXÄBˇÿKˇ˜ÌÄA;√ûÉæùÅùÄlˇ¸Äǡ‡Ä§ˇËÄ√ˇÙf(ÉΩùÉΩ;Ä8Ä‚ˇ‰Äáˇÿ8Ω8‹ÄBˇ‰Kˇ¯›ÄA8Åˇ‰Äàˇÿ8ø8ÄBˇ‰Kˇ˚AÄA3úâ?8/â@˛C‡4â_81jˇÄ(ãAÂUl:8bˇ§|É`.|â¶O‡ C‡§C‡†8bÄ¢ˇ‰ÄÖˇ–8†ÖÄBˇ‰Kˇ˙âÄAC‡Ä8bĬˇ‰Äܡ–8†ÜÄBˇ‰KˇˆÄAC‡`8bÄ‚ˇ‰Äᡖ8†äÄBˇ‰KˇıÂÄAC‡@8bÅˇ‰Äàˇ–8†öÄBˇ‰Kˇı≈ÄAC‡ 8bÅ"ˇ‰Ä⡖8†üÄBˇ‰Kˇı•ÄAÅBäÅj/ @˘T8}0úˇˇ8ºÄBˇ‰Kˇ¯˝ÄA8}0úˇˇÄ¢ÄBˇ‰HÄA8Åǡ‰Äåˇÿ8Ω8‹ÄBˇ‰Kˇˆ}ÄAC‡˛§ÄXÄ!|¶ªÅˇO‡ |¶øÅˇêî!ˇx;·8êA;¿;†ìø,ìø ìøìø ÄbˇÏ®cVÄÇˇÏ®ÑXÄBˇÿKˇˆ’ÄA;√ûÉæùÄΩÄ≈ˇ¸Ä‚ˇ‡ÅˇËÅ&ˇÙi@ÉΩùÉΩ;Ä8ÅBˇ‰Ääˇÿ8Ω8‹ÄBˇ‰Kˇı!ÄA8Åbˇ‰Äãˇÿ8ø8ÄBˇ‰KˇˆaÄA3úâü8/å@˛C‡Xà80ɡÄ(Ñ'AÂTÖ:8¬ˇ|Ê(.|ȶO‡ C‡»C‡ƒ8bÅˇ‰Äàˇ–8†ÅÄBˇ‰KˇıÖÄAC‡§8bÅ"ˇ‰Ä⡖8†ÇÄBˇ‰KˇÛÌÄAC‡Ñ8bÅBˇ‰Ä䡖8†ÉÄBˇ‰KˇÛÕÄAC‡d8bÅbˇ‰Äãˇ–8†ÑÄBˇ‰KˇÛ≠ÄAC‡D8bÅǡ‰Äåˇ–8†ÖÄBˇ‰KˇÛçÄAC‡$8bÄǡ‰ÄÑˇ–8¢ˇ8¿ÄBˇ‰HÄAÄ¢ÖÄ≈/@˘T8}0úˇˇ8ºÄBˇ‰KˇıYÄA8}0úˇˇÄ¢ÄBˇ‰KˇıAÄA8Ä‚ˇ‰Äáˇÿ8Ω8‹ÄBˇ‰KˇÙeÄAC‡˛ÄÄXÄ!|¶ªÅˇO‡ |¶øÅˇêî!ˇx;·8êA;¿;†ìø,ìø ìøìø ÅˇÏ®hVÅ"ˇÏ®âXÄBˇÿKˇÙΩÄA;√ûÉæùÅ]Åjˇ¸Åǡ‡ÄlˇËÄãˇÙdÉΩùÉΩ;Ä8Ä¢ˇ‰ÄÖˇÿ8Ω8‹ÄBˇ‰KˇÚÂÄA8Ĭˇ‰Äܡÿ8ø8ÄBˇ‰KˇÙIÄA3úàˇ8/á@˛C‡åâ81(ˇÄ(â'AÂU*:9b˛`}ãP.}â¶O‡ C‡¸8bÄǡ‰ÄÑˇ–8¢˛\8¿ÄBˇ‰KˇÛIÄAC‡ÿ8bÄ¢ˇ‰ÄÖˇ–8¢˛X8¿ÄBˇ‰KˇÒ±ÄAC‡¥8bĬˇ‰Äܡ–8¢˛T8¿ÄBˇ‰KˇÒçÄAC‡ê8bÄ‚ˇ‰Äᡖ8¢˛P8¿ÄBˇ‰KˇÒiÄAC‡l8bÅˇ‰Äàˇ–8¢˛L8¿ÄBˇ‰KˇÒEÄAC‡H8bÅ"ˇ‰Ä⡖8¢˛H8¿ÄBˇ‰KˇÒ!ÄAC‡$8bÅBˇ‰Ä䡖8¢˛D8¿ÄBˇ‰Kˇ˝ÄAÅbãÅã/ @˘T8}0úˇˇ8ºÄBˇ‰KˇÛÄA8}0úˇˇÄ¢ÄBˇ‰KˇÛÄA8Äǡ‰ÄÑˇÿ8Ω8‹ÄBˇ‰KˇÚ)ÄAC‡˛LÄXÄ!|¶ªÅˇO‡ |¶ø¡ˇ¯êî!ˇX;·8êAÄBˇ¯HÄA8 8Ä ÄBˇ¯HÄA8@8Ä ÄBˇ¯Kˇ%ÄAÄBˇ¯HÄA/É@˛Ã88Ä ÄBˇ¯HÄA88Ä ÄBˇ¸HÄA8b˛<8ÄÄBˇ¸KˇÔ’ÄA;¿ æ |øÚ æ à≈ |ˇÆ|Ü8@Ê  æ }Úâ( /    A˙ 3fiC‡ˇÃ8@8Ä ÄBˇ¸KˇÔ¡ÄA æ }_Æ/äA˛  æ |ÆÄBˇ¸HÄA3fiC‡ˇÿÄBˇ¸HÄAC‡ˇ(ÄxÄ!|¶ª¡ˇ¯O‡ |¶ø·ˇ¸êî!ˇ¿;·8êA8bÅbˇ‰Äãˇ–ÄBˇ‰HÄAÄÄ!|¶ª·ˇ¸O‡ âä "$)bëï˘˚9CaÊ  $)1NPVX¢‘÷‹fi1cekmÕ&*ã¯˝‡8FindCharch8f‚{hlen‰{m:xpos„{rXv·{|¯Ê¿GetPatternbeg‘endÿpat‚{sTt–xtime‹¯ö¿GetTextt·{x¯Ã ¿GetLinecheof‰{iÂ{ll„{s‚{¯È ¿WriteStringch‰{i„{s‚{¯Ò‡8ExtractLineseof¿line¥Äll¥out·{hpat4Äpos‚{rXtxv∏|xºyæ¯∫(8GetSelectionF·{hfÂ{htime‚{v„{|x‰{¯¿–8UmlautOMch8pos„{rXt‚{xv·{|¯œ–8UmlautMOch8pos„{rXt‚{xv·{|¯Î–8UmlautMAch8pos„{rXt‚{xv·{|¯∫8CopyListfrom  i·{s to¿ ¯À8$$wP